home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1994 / MacHack 1994.toast / MacHack™94 / Talks & Papers / Timothy Knox / yerk 3.66 / System source / Imports < prev    next >
Text File  |  1994-06-24  |  2KB  |  66 lines
  1. \ imports for Yerk system modules
  2. \  1/12/84  cbd Seperated from Mod file
  3. \ 12/20/85  cdn Added Sort & Assembler
  4. \  6/23/86  cdn Added de'
  5. \  8/21/86  cdn Added Alert" & fcall
  6. \  6/01/90    rfl    added global/gtool and .sys/env
  7. \  9/26/90    rfl    added more imports to env
  8. \ 12/15/90    rfl    moved global to toolmod
  9. \  2/02/91    rfl    added envrec to env module
  10. \  6/11/91    rfl    added konstant module
  11. \ 10/26/91    rfl    added class hierarchy to util
  12. \  5/01/93  rfl removed mload and added outMod
  13. \  5/17/93    rfl    removed string call from clean1. Yerk.rsrc no longer needed.
  14. \ 12/25/93    rfl    added 'need' to docmod
  15.  
  16. FROM aboutMod    IMPORT{ About }
  17. FROM alertMod    IMPORT{ (al") alert! }
  18. FROM deMod         IMPORT{ (de) de' }        48 value deflgs
  19. FROM examMod    IMPORT{ Exam }
  20. FROM grepMod    IMPORT{ (grep) Grep }    4 value grflgs
  21. FROM iMod        IMPORT{ saveNuc Install }
  22. FROM indMod        IMPORT{ doInDlg doGrDlg doDeDlg }
  23. FROM logMod        IMPORT{ +file -file tofile }
  24. FROM printMod    IMPORT{ +print -print pinit pemit ptype pCR np }
  25. FROM qpMod        IMPORT{ qPrint }
  26. FROM sortMod    IMPORT{ sort }
  27. FROM Tool        IMPORT{ ASMcall fcall call global } 3 immediates
  28. FROM Util        IMPORT{ Dump .w Words objList .classes pat hc' hier }
  29. FROM env        IMPORT{ .sys hasColor hasFPU appleTalkOn getEnv }
  30. FROM konstantMod IMPORT{ konstant } immediate
  31. FROM docMod        IMPORT{ see marks srcname fm rl /// mforget findfmark need }
  32.  
  33. FROM asmMod        IMPORT{ Asm endAsm :Code :mCode } Immediate
  34.  
  35. \ ( RC type -- ) frontender so module is not loaded if not needed
  36. : (al") smudge
  37.     over IF R (al") ELSE 2drop THEN
  38.     R c@ 1+ align R> + >R ;
  39.  
  40. \ ( RC type : str" -- )  Compile conditional alert box
  41. : Alert"
  42.     ?comp Compile (al") word" c@ 1+ Align allot
  43. ; Immediate
  44.  
  45. 4 X-Array Aact
  46. 'c abort 'c null 'c null 'c null put: Aact
  47.  
  48. \ Execute trap at IP on Return stack
  49. : (TRAP)    R> dup 2+ >R w@ Trap ;
  50.  
  51. \ Execute in line trap sequence: Axxx next,
  52. Create [trap]
  53.     $ 224c w,        \ move.l  a4,a1
  54.     $ d9fc w, 12 ,    \ add.l   #12,a4
  55.     $ 4ed1 w,        \ jmp     (a1)
  56.  
  57. :F dmp dump ;F    \ patch forward reference from Object
  58.  
  59. 'code Util -> modCode
  60.  
  61. 'c release -> growZone
  62.  
  63. \ additional cleanup for aborts
  64. : clean1   cleanup +curs ." Token=" ( type# 171 ( Token= ) here .name cr ;
  65. 'c clean1 -> abortVec
  66.